home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / tpfort17.zip / FSAMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  1991-08-25  |  860b  |  37 lines
  1. {$N+,E+}
  2. unit Fsample;
  3. {  This unit contains the dummy Pascal routines corresponding to the routines
  4.    in FSAMPLE.FOR
  5. }
  6. interface
  7.   uses FortLink;
  8.  
  9. procedure Eval(Fn:extval;
  10.             var N:longint;
  11.             var X:realarray;
  12.             var Value:double);
  13. {  Evaluates a double-valued function with arguments N and an array X of length
  14.    N, and returns the answer in Value  }
  15.  
  16. function Cube(var X:double):double;
  17. {  Cubes its argument  }
  18.  
  19. const
  20.   Eval_Num = 1;     { These numbers are the positions of EVAL and CUBE in }
  21.   Cube_Num = 2;     { the Fortran call to CALLTP                          }
  22.  
  23. implementation
  24.  
  25. procedure Eval;
  26. begin
  27.   CallFort(Eval_Num);  { This is a procedure, so it uses CallFort }
  28. end;
  29.  
  30. function Cube;
  31. begin
  32.   FDouble(Cube_Num);   { This is a function:double, so it uses FDouble }
  33. end;
  34.  
  35. end.
  36.  
  37.